10 CLS: LET a$="*": FOR n= NOT PI TO VAL "12": PRINT AT n, VAL "9";a$; AT n, VAL"17"-n;a$; AT VAL "16"-n, VAL "9";a$; AT VAL "16"-n, VAL"17"-n;a$:LET a$=a$+"*": NEXT n
